Function nToColonneExcel(n As Long) As String
    Dim r As Long, q As Long, col As String
    col = ""
    q = n
    Do While q >= 26
        r = q Mod 26
        q = q \ 26
        If r = 0 Then
            r = 26
            q = q - 1
        End If
        col = Chr(r + Asc("@")) & col
    Loop
    If q <> 0 Then col = Chr(q + Asc("@")) & col
    nToColonneExcel = col
End Function

Function ColonneExcelToN(col As String) As Long
    Dim t As String, n As Long, i As Integer
    n = 0
    For i = 1 To Len(col)
        n = n * 26
        t = Mid(col, i, 1)
        n = n + Asc(t) - Asc("A") + 1
    Next
    ColonneExcelToN = n
End Function

Function LigColToRange(lig As Long, col As Long)
    LigColToRange = "$" & nToColonneExcel(col) & "$" & CStr(lig)
End Function